home *** CD-ROM | disk | FTP | other *** search
/ Immoral Angel 1 / Immoral Angel 1.iso / mac / MSTR / PROGRAM / MOVIE13.DIR / 00038_PackageMask.ls < prev    next >
Encoding:
Text File  |  1997-07-10  |  442 b   |  17 lines
  1. on mouseUp
  2.   global videonum, selectedvideonum, status, cursorpointer, cursorwait
  3.   if (status = "about") or (status = "exitAlart") or (status = "helpMenu") or (status = "bomb") then
  4.     exit
  5.   end if
  6.   eracemenudownbutton()
  7.   cursor(cursorwait)
  8.   set selectedvideonum to string(videonum) & "V"
  9.   zoomBox(4, 15, 1)
  10.   puppetSprite(15, 0)
  11.   updateStage()
  12.   go(selectedvideonum)
  13.   puppetSprite(15, 1)
  14.   updateStage()
  15.   cursor(cursorpointer)
  16. end
  17.